www.gusucode.com > 地方成人教育中心整站源代码 1 > 地方成人教育中心整站源代码 1.0/inc/db.asp
<% response.buffer=true'打开缓冲 Class class_idea Public connstr,isconn,rootpath Private Sub Class_Initialize() isconn=false End Sub sub conn_open() set conn=server.createobject("adodb.connection") set rs=server.createobject("adodb.recordset") conn.open connstr If Err.Number<>0 Then Response.Write "数据库连接发生错误" : Response.End isconn=true End Sub Function exec(esql,etype) if not isconn=true then call conn_open() select case etype case 0 conn.execute(esql) case 1 set exec=server.CreateObject("adodb.recordset") exec.open esql,conn,1,1 end select End Function '********** '地址处理 '********** function own_http() dim ssort ssort=trim(request.servervariables("server_port")) own_http="http://"&trim(request.servervariables("server_name")) if ssort<>"80" then own_http=own_http&":"&ssort if right(own_http,1)<>"/" then own_http=own_http&"/" End Function sub own_dir() dim path_info,now_dir,ndd path_info=request.servervariables("path_info") now_dir=left(path_info,instrrev(path_info,"/")) web_dir=now_dir ndd=own_http() web_urls=left(ndd,len(ndd)-1)&now_dir end sub End Class Dim conn,rs set idea = new class_idea If idea_5=1 Then 'idea.connstr="provider=sqloledb;uid="&idea_8&";pwd="&idea_9&";initial catalog="&idea_7&";data source="&idea_6&";" idea.connstr ="Driver={SQL Server};server="&idea_6&";uid="&idea_8&";pwd="&idea_9&";database="&idea_7&"" Else idea.connstr = "provider=microsoft.jet.oledb.4.0;data source=" &server.mappath(idea_10) 'idea.connstr = "Driver={Microsoft Access Driver(*.mdb)};DBQ="&Server.MapPath(idea_10) End If '****************** '回收资源 '****************** Sub web_clear() if isobject(rs) then set rs=nothing if idea.isconn then conn.close set conn=nothing end if set idea=nothing End Sub %>